home *** CD-ROM | disk | FTP | other *** search
/ Remax Data / Remax Porfolio Data 15 Jul 1994 CD-ROM.ISO / fp26_rmx / exp.prg < prev    next >
Encoding:
Text File  |  1994-07-02  |  858 b   |  50 lines
  1. * This program reads in raw data from remax in the specified format
  2. * It replaces the remax.ap file and awk
  3.  
  4. CLOSE DATABASES
  5. new = FCREATE("RMXDTA2.TXT")
  6. handle = FOPEN("sample.dat")
  7.  
  8. Count = 0
  9.  
  10.  
  11. M.Index = 2
  12.     
  13.     Last = ' ' 
  14.     Char = ' '
  15.     STOP = .F.
  16.     
  17.     DO WHILE Char != ',' AND M.Index <=30 AND STOP=.F.
  18.         Char = FREAD(handle, 1)
  19.         M.Index = M.Index +1
  20.         IF Char = ','
  21.             Char = ' '
  22.             STOP = .T.
  23.         ENDIF
  24.         Last = Last + Char
  25.         ENDIF    
  26.     ENDDO
  27.     
  28.     Char = ','
  29.     First = ' '
  30.     =FSEEK(handle, 1, 1)    
  31.     
  32.     DO WHILE Char != ' ' AND M.Index <=30
  33.         Char = FREAD(handle, 1)
  34.         M.Index = M.Index +1
  35.         First = First + Char
  36.     ENDDO
  37.     
  38.     Char = ','
  39.     Middle = ' '
  40.     =FSEEK(handle, 1, 1)
  41.     
  42.     DO WHILE Char != ' ' AND M.Index <=30
  43.         Char = FREAD(handle, 1)
  44.         M.Index = M.Index +1
  45.         Middle = Middle + Char
  46.     ENDDO
  47.     
  48.     ? Last
  49.     ? First
  50.     ? Middle